home *** CD-ROM | disk | FTP | other *** search
/ Programmer Plus 2007 / Programmer-Plus-2007.iso / Programming / Borland Plateform / Turbo Prolog 2 / EXAMPL11.PRO < prev    next >
Encoding:
Prolog Source  |  1986-04-01  |  223 b   |  10 lines
  1.              /* Program 11 */
  2. domains
  3.        namelist = name*
  4.        name = symbol
  5. predicates
  6.        member(name,namelist).
  7. clauses
  8.        member(Name,[Name|_]).
  9.        member(Name,[_|Tail]) if member(Name,Tail).
  10.